Interactive Quarterly/The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso/pc/demos/az/cyberx.dxr/00097_RECORRIDO + VIDEO.ls

Text File | 1996-10-06 | 666 b | 34 lines

on exitFrame
  global cinta
  if cinta = 1 then
    pon_cursor(1, 3)
  end if
  go(the frame)
end

on keyDown
  if the keyCode = 124 then
    puppetSprite(23, 1)
    set the castNum of sprite 23 to 2103
    derecha()
  else
    if the keyCode = 123 then
      puppetSprite(22, 1)
      set the castNum of sprite 22 to 2104
      izquierda()
    else
      if the keyCode = 126 then
        puppetSprite(20, 1)
        set the castNum of sprite 20 to 2102
        adelante()
      else
        if the keyCode = 125 then
          puppetSprite(21, 1)
          set the castNum of sprite 21 to 2101
          atras()
        end if
      end if
    end if
  end if
end